200 |
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
with AxGrid1 do begin set_FormatAnchor(False,'<b><u><fgcolor=880000> </fgcolor></u></b>'); Columns.Add('Column'); with Items do begin CellValueFormat[TObject(AddItem('Just an <a1>anchor</a> element ...')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML; end; with Items do begin CellValueFormat[TObject(AddItem('Just another <a2>anchor</a> element ...')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML; end; Items.AddItem('next item'); end |
199 |
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
with AxGrid1 do begin set_FormatAnchor(True,'<b><u><fgcolor=FF0000> </fgcolor></u></b>'); Columns.Add('Column'); with Items do begin CellValueFormat[TObject(AddItem('Just an <a1>anchor</a> element ...')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML; end; with Items do begin CellValueFormat[TObject(AddItem('Just another <a2>anchor</a> element ...')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML; end; end |
198 |
Can I change the font for the tooltip
|
197 |
Can I change the font for the tooltip
with AxGrid1 do begin ToolTipDelay := 1; with ToolTipFont do begin Name := 'Tahoma'; Size := 14; end; ToolTipWidth := 364; (Columns.Add('tootip') as EXGRIDLib.Column).ToolTip := 'this is a tooltip assigned to a column'; end |
196 |
Can I change the order of the buttons in the scroll bar
with AxGrid1 do begin set_ScrollOrderParts(EXGRIDLib.ScrollBarEnum.exHScroll,'t,l,r'); set_ScrollOrderParts(EXGRIDLib.ScrollBarEnum.exVScroll,'t,l,r'); ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableBoth; end |
195 |
The thumb size seems to be very small. Can I make it bigger
with AxGrid1 do begin ColumnAutoResize := False; (Columns.Add('C1') as EXGRIDLib.Column).Width := 256; (Columns.Add('C2') as EXGRIDLib.Column).Width := 256; (Columns.Add('C3') as EXGRIDLib.Column).Width := 256; set_ScrollThumbSize(EXGRIDLib.ScrollBarEnum.exHScroll,64); end |
194 |
How can I display my text on the scroll bar, using a different font
with AxGrid1 do begin set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exThumbPart,'This is <s><font Tahoma;12> just </font></s> text'); ColumnAutoResize := False; ScrollHeight := 20; (Columns.Add('C1') as EXGRIDLib.Column).Width := 256; (Columns.Add('C2') as EXGRIDLib.Column).Width := 256; (Columns.Add('C3') as EXGRIDLib.Column).Width := 256; end |
193 |
How can I display my text on the scroll bar, using a different font
with AxGrid1 do begin set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exThumbPart,'This is just a text'); get_ScrollFont(EXGRIDLib.ScrollBarEnum.exHScroll).Size := 12; ColumnAutoResize := False; ScrollHeight := 20; (Columns.Add('C1') as EXGRIDLib.Column).Width := 256; (Columns.Add('C2') as EXGRIDLib.Column).Width := 256; (Columns.Add('C3') as EXGRIDLib.Column).Width := 256; end |
192 |
How can I display my text on the scroll bar
with AxGrid1 do begin set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exThumbPart,'this is just a text'); ColumnAutoResize := False; (Columns.Add('C1') as EXGRIDLib.Column).Width := 256; (Columns.Add('C2') as EXGRIDLib.Column).Width := 256; (Columns.Add('C3') as EXGRIDLib.Column).Width := 256; end |
191 |
How do I enlarge or change the size of the control's scrollbars
with AxGrid1 do begin ScrollHeight := 18; ScrollWidth := 18; ScrollButtonWidth := 18; ScrollButtonHeight := 18; ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableBoth; end |
190 |
How do I assign a tooltip to a scrollbar
with AxGrid1 do begin set_ScrollToolTip(EXGRIDLib.ScrollBarEnum.exHScroll,'This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar'); ColumnAutoResize := False; (Columns.Add('C1') as EXGRIDLib.Column).Width := 256; (Columns.Add('C2') as EXGRIDLib.Column).Width := 256; (Columns.Add('C3') as EXGRIDLib.Column).Width := 256; end |
189 |
How do I assign an icon to the button in the scrollbar
with AxGrid1 do begin Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA='); set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB1Part,True); set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB1Part,'<img>1</img>'); ScrollHeight := 18; ScrollButtonWidth := 18; ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableNoHorizontal; end |
188 |
I need to add a button in the scroll bar. Is this possible
with AxGrid1 do begin set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB1Part,True); set_ScrollPartCaption(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB1Part,'1'); ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableNoHorizontal; end |
187 |
Can I display an additional buttons in the scroll bar
with AxGrid1 do begin set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB1Part,True); set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB2Part,True); set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exRightB6Part,True); set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exRightB5Part,True); ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableNoHorizontal; end |
186 |
Can I display the picture aligned to the right, while the text aligned to the left
with AxGrid1 do begin DefaultItemHeight := 48; Columns.Add('C1'); with Items do begin s := SplitCell[TObject(AddItem('Text')),TObject(0)]; CellPicture[Nil,TObject(s)] := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)'); CellHAlignment[Nil,TObject(s)] := EXGRIDLib.AlignmentEnum.RightAlignment; end; end |
185 |
How can I display a custom size picture to a cell or item
with AxGrid1 do begin DefaultItemHeight := 48; Columns.Add('C1'); with Items do begin CellPicture[TObject(AddItem('Text')),TObject(0)] := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)'); end; end |
184 |
How can I display a multiple pictures to a cell or item
with AxGrid1 do begin DefaultItemHeight := 48; set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif'); set_HTMLPicture('pic2','c:\exontrol\images\auction.gif'); Columns.Add('C1'); with Items do begin CellValueFormat[TObject(AddItem('<img>pic1</img> Text <img>pic2</img> another text ...')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML; end; end |
183 |
How do I change the column's foreground color for numbers between an interval - Range
with AxGrid1 do begin with ConditionalFormats.Add('%0 >= 2 and %0 <= 10',Nil) do begin Bold := True; ForeColor := $ff; ApplyTo := EXGRIDLib.FormatApplyToEnum($1); end; Columns.Add('N1'); Columns.Add('N2'); with Items do begin CellValue[TObject(AddItem(TObject(1))),TObject(1)] := TObject(2); end; with Items do begin CellValue[TObject(AddItem(TObject(3))),TObject(1)] := TObject(3); end; with Items do begin CellValue[TObject(AddItem(TObject(10))),TObject(1)] := TObject(11); end; with Items do begin CellValue[TObject(AddItem(TObject(13))),TObject(1)] := TObject(31); end; SearchColumnIndex := 1; end |
182 |
How do I change the item's foreground color for numbers between an interval - Range
with AxGrid1 do begin ConditionalFormats.Add('%0 >= 2 and %0 <= 10',Nil).ForeColor := $ff; Columns.Add('Numbers'); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); Items.AddItem(TObject(10)); Items.AddItem(TObject(20)); end |
181 |
How do I change the item's background color for numbers less than a value
with AxGrid1 do begin ConditionalFormats.Add('%0 < 10',Nil).BackColor := $ff; Columns.Add('Numbers'); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); Items.AddItem(TObject(10)); Items.AddItem(TObject(20)); end |
180 |
How do I underline the numbers greater than a value
with AxGrid1 do begin ConditionalFormats.Add('%0 >= 10',Nil).Underline := True; Columns.Add('Numbers'); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); Items.AddItem(TObject(10)); Items.AddItem(TObject(20)); end |
179 |
How do I highlight in italic the numbers greater than a value
with AxGrid1 do begin ConditionalFormats.Add('%0 >= 10',Nil).StrikeOut := True; Columns.Add('Numbers'); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); Items.AddItem(TObject(10)); Items.AddItem(TObject(20)); end |
178 |
How do I highlight in italic the numbers greater than a value
with AxGrid1 do begin ConditionalFormats.Add('%0 >= 10',Nil).Italic := True; Columns.Add('Numbers'); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); Items.AddItem(TObject(10)); Items.AddItem(TObject(20)); end |
177 |
How do I highlight in bold the numbers greater than a value
with AxGrid1 do begin ConditionalFormats.Add('%0 >= 10',Nil).Bold := True; Columns.Add('Numbers'); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); Items.AddItem(TObject(10)); Items.AddItem(TObject(20)); end |
176 |
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot; HasButtons := EXGRIDLib.ExpandButtonEnum.exCustom; set_HasButtonsCustom(False,16777216); set_HasButtonsCustom(True,33554432); Columns.Add('Column'); with Items do begin h := AddItem('Root 1'); InsertItem(h,Nil,'Child 1'); InsertItem(h,Nil,'Child 2'); ExpandItem[h] := True; h := AddItem('Root 2'); InsertItem(h,Nil,'Child'); end; end |
175 |
Can I use your EBN files to change the visual appearance for radio buttons
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); set_RadioImage(False,16777216); set_RadioImage(True,33554432); (Columns.Add('Radio') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellHasRadioButton] := TObject(True); with Items do begin AddItem('Radio 1'); CellState[TObject(AddItem('Radio 2')),TObject(0)] := 1; AddItem('Radio 3'); end; end |
174 |
Can I use your EBN files to change the visual appearance for checkbox cells
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); set_CheckImage(EXGRIDLib.CheckStateEnum.Unchecked,16777216); set_CheckImage(EXGRIDLib.CheckStateEnum.Checked,33554432); (Columns.Add('Check') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellHasCheckBox] := TObject(True); with Items do begin AddItem('Check 1'); CellState[TObject(AddItem('Check 2')),TObject(0)] := 1; end; end |
173 |
How do I change the visual aspect for thumb parts in the scroll bars, using EBN
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); VisualAppearance.Add(3,'c:\exontrol\images\hot.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumb,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumbP,$2000000); set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumbH,$3000000); set_Background(EXGRIDLib.BackgroundPartEnum.exVSThumb,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exVSThumbP,$2000000); set_Background(EXGRIDLib.BackgroundPartEnum.exVSThumbH,$3000000); ScrollBars := Integer(EXGRIDLib.ScrollBarsEnum.exVScrollEmptySpace) Or Integer(EXGRIDLib.ScrollBarsEnum.exHScrollEmptySpace) Or Integer(EXGRIDLib.ScrollBarsEnum.exVScrollOnThumbRelease) Or Integer(EXGRIDLib.ScrollBarsEnum.exHScrollOnThumbRelease) Or Integer(EXGRIDLib.ScrollBarsEnum.exDisableBoth); ScrollBySingleLine := True; Columns.Add('Def'); with Items do begin AddItem(TObject(1)); AddItem(TObject(2)); AddItem(TObject(3)); end; end |
172 |
How do I change the visual aspect only for the thumb in the scroll bar, using EBN
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); VisualAppearance.Add(3,'c:\exontrol\images\hot.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumb,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumbP,$2000000); set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumbH,$3000000); ScrollBars := Integer(EXGRIDLib.ScrollBarsEnum.exVScrollEmptySpace) Or Integer(EXGRIDLib.ScrollBarsEnum.exHScrollEmptySpace) Or Integer(EXGRIDLib.ScrollBarsEnum.exVScrollOnThumbRelease) Or Integer(EXGRIDLib.ScrollBarsEnum.exHScrollOnThumbRelease) Or Integer(EXGRIDLib.ScrollBarsEnum.exDisableBoth); ScrollBySingleLine := True; Columns.Add('Def'); with Items do begin AddItem(TObject(1)); AddItem(TObject(2)); AddItem(TObject(3)); end; end |
171 |
I've seen that you can change the visual appearance for the scroll bar. How can I do that
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); VisualAppearance.Add(3,'c:\exontrol\images\hot.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exSBtn,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exSBtnP,$2000000); set_Background(EXGRIDLib.BackgroundPartEnum.exSBtnH,$3000000); set_Background(EXGRIDLib.BackgroundPartEnum.exHSBack,$f0f0f0); set_Background(EXGRIDLib.BackgroundPartEnum.exVSBack,$f0f0f0); set_Background(EXGRIDLib.BackgroundPartEnum.exScrollSizeGrip,$f0f0f0); (Columns.Add('S') as EXGRIDLib.Column).Width := 32; (Columns.Add('Level 1') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 2') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 3') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('E1') as EXGRIDLib.Column).Width := 32; (Columns.Add('E2') as EXGRIDLib.Column).Width := 32; (Columns.Add('E3') as EXGRIDLib.Column).Width := 32; (Columns.Add('E4') as EXGRIDLib.Column).Width := 32; ColumnAutoResize := False; ScrollBars := EXGRIDLib.ScrollBarsEnum.exDisableBoth; end |
170 |
Is there any option to highlight the column from the cursor - point
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,$1000000); (Columns.Add('S') as EXGRIDLib.Column).Width := 32; (Columns.Add('Level 1') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 2') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 3') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('E1') as EXGRIDLib.Column).Width := 32; (Columns.Add('E2') as EXGRIDLib.Column).Width := 32; (Columns.Add('E3') as EXGRIDLib.Column).Width := 32; (Columns.Add('E4') as EXGRIDLib.Column).Width := 32; end |
169 |
How do I change the visual aspect of selected item in the drop down filter window, using your EBN technology
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exSelBackColorFilter,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exSelForeColorFilter,$1414ff); (Columns.Add('Filter') as EXGRIDLib.Column).DisplayFilterButton := True; end |
168 |
How do I change the visual aspect of the drop down calendar window, that shows up if I click the drop down filter button, using EBN
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exDateHeader,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exDateTodayUp,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exDateTodayDown,$2000000); set_Background(EXGRIDLib.BackgroundPartEnum.exDateScrollThumb,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exDateScrollRange,$e6e6e6); set_Background(EXGRIDLib.BackgroundPartEnum.exDateSeparatorBar,$e6e6e6); set_Background(EXGRIDLib.BackgroundPartEnum.exDateSelect,$1000000); with (Columns.Add('Date') as EXGRIDLib.Column) do begin FilterType := EXGRIDLib.FilterTypeEnum.exDate; DisplayFilterButton := True; DisplayFilterDate := True; end; end |
167 |
How do I change the visual aspect of the close button in the filter bar, using EBN
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exFooterFilterBarButton,$1000000); (Columns.Add('Filter') as EXGRIDLib.Column).FilterType := EXGRIDLib.FilterTypeEnum.exBlanks; ApplyFilter(); end |
166 |
How do I change the visual aspect of buttons in the cell, using EBN
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exCellButtonUp,$1000000); set_Background(EXGRIDLib.BackgroundPartEnum.exCellButtonDown,$2000000); SelForeColor := Color.FromArgb(0,0,0); ShowFocusRect := False; (Columns.Add('Column 1') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellHasButton] := TObject(True); Items.AddItem('Button 1'); Items.AddItem('Button 2'); Columns.Add('Column 2'); end |
165 |
How do I change the visual aspect of the drop down filter button, using EBN
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); set_Background(EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,$1000000); (Columns.Add('Filter') as EXGRIDLib.Column).DisplayFilterButton := True; end |
164 |
Is there any function to get the control's data in your x-script format / template
with AxGrid1 do begin Columns.Add('Column'); Items.AddItem(TObject(AxGrid1.ToTemplate[Nil])); end |
163 |
How do I enable resizing the columns at runtime
with AxGrid1 do begin ColumnsAllowSizing := True; MarkSearchColumn := False; HeaderVisible := False; Columns.Add('Column 1'); Columns.Add('Column 2'); DrawGridLines := EXGRIDLib.GridLinesEnum.exVLines; with Items do begin CellValue[TObject(AddItem('Item 1')),TObject(1)] := 'Sub Item 1'; end; with Items do begin CellValue[TObject(AddItem('Item 2')),TObject(1)] := 'Sub Item 2'; end; end |
162 |
How can I select the second inner column when spliting the cells
with AxGrid1 do begin SelectColumnInner := 1; FullRowSelect := EXGRIDLib.CellSelectEnum.exColumnSel; DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines; Columns.Add('Column'); with Items do begin CellValue[Nil,SplitCell[TObject(AddItem('Split Cell 1.1')),TObject(0)]] := 'Split Cell 2.1'; CellValue[Nil,SplitCell[TObject(AddItem('Split Cell 1.2')),TObject(0)]] := 'Split Cell 2.2'; SelectItem[FirstVisibleItem] := True; end; end |
161 |
How can I sort by multiple columns
with AxGrid1 do begin SingleSort := False; (Columns.Add('C1') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortAscending; (Columns.Add('C2') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortDescending; (Columns.Add('C3') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortAscending; end |
160 |
How can I add several columns to control's sort bar
with AxGrid1 do begin SortBarVisible := True; SortBarColumnWidth := 48; (Columns.Add('C1') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortAscending; (Columns.Add('C2') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortDescending; end |
159 |
How can I change the width of the columns being displayed in the sort bar
with AxGrid1 do begin SortBarVisible := True; SortBarColumnWidth := 48; (Columns.Add('C1') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortAscending; (Columns.Add('C2') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortDescending; end |
158 |
How can I change the height of the sort bar's
with AxGrid1 do begin SortBarVisible := True; SortBarHeight := 48; end |
157 |
How can I change the sort bar's foreground color
with AxGrid1 do begin SortBarVisible := True; ForeColorSortBar := Color.FromArgb(255,0,0); end |
156 |
How can I change the visual appearance of the control's sort bar, using EBN files
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn'); SortBarVisible := True; (GetOcx() as EXGRIDLib.Grid).BackColorSortBar := $1000000; (GetOcx() as EXGRIDLib.Grid).BackColorSortBarCaption := $2000000; Appearance := EXGRIDLib.AppearanceEnum.None2; end |
155 |
How can I change the sort bar's background color
with AxGrid1 do begin SortBarVisible := True; BackColorSortBar := Color.FromArgb(255,0,0); BackColorSortBarCaption := Color.FromArgb(128,0,0); end |
154 |
How can I change the default caption being displayed in the control's sort bar
with AxGrid1 do begin SortBarVisible := True; SortBarCaption := 'new caption'; end |
153 |
How can I show the locked / fixed items on the bottom side of the control
with AxGrid1 do begin ShowLockedItems := True; Columns.Add('Column'); with Items do begin LockedItemCount[EXGRIDLib.VAlignmentEnum.exMiddle] := 2; CellValue[TObject(LockedItem[EXGRIDLib.VAlignmentEnum.exMiddle,0]),TObject(0)] := 'locked item 1'; CellValue[TObject(LockedItem[EXGRIDLib.VAlignmentEnum.exMiddle,1]),TObject(0)] := 'locked item 2'; AddItem('un-locked item'); end; end |
152 |
How can I show the locked / fixed items
with AxGrid1 do begin ShowLockedItems := True; Columns.Add('Column'); with Items do begin LockedItemCount[EXGRIDLib.VAlignmentEnum.exTop] := 2; CellValue[TObject(LockedItem[EXGRIDLib.VAlignmentEnum.exTop,0]),TObject(0)] := 'locked item 1'; CellValue[TObject(LockedItem[EXGRIDLib.VAlignmentEnum.exTop,1]),TObject(0)] := 'locked item 2'; AddItem('un-locked item'); end; end |
151 |
How can I hide the locked / fixed items
with AxGrid1 do begin ShowLockedItems := False; Columns.Add('Column'); with Items do begin LockedItemCount[EXGRIDLib.VAlignmentEnum.exTop] := 1; CellValue[TObject(LockedItem[EXGRIDLib.VAlignmentEnum.exTop,0]),TObject(0)] := 'locked item'; AddItem('un-locked item'); end; end |
150 |
How can I show the control's sort bar
with AxGrid1 do begin SortBarVisible := True; end |
149 |
How can I stretch a picture on the control's header, when multiple levels are displayed, so it is not tiled
with AxGrid1 do begin (GetOcx() as EXGRIDLib.Grid).PictureLevelHeader := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)'); PictureDisplayLevelHeader := EXGRIDLib.PictureDisplayEnum.Stretch; (Columns.Add('S') as EXGRIDLib.Column).Width := 32; (Columns.Add('Level 1') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 2') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 3') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('E1') as EXGRIDLib.Column).Width := 32; (Columns.Add('E2') as EXGRIDLib.Column).Width := 32; (Columns.Add('E3') as EXGRIDLib.Column).Width := 32; (Columns.Add('E4') as EXGRIDLib.Column).Width := 32; end |
148 |
How can I display a picture on the control's header, when multiple levels are displayed, so it is not tiled
with AxGrid1 do begin (GetOcx() as EXGRIDLib.Grid).PictureLevelHeader := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)'); PictureDisplayLevelHeader := EXGRIDLib.PictureDisplayEnum.MiddleRight; (Columns.Add('S') as EXGRIDLib.Column).Width := 32; (Columns.Add('Level 1') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 2') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 3') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('E') as EXGRIDLib.Column).Width := 32; end |
147 |
How can I display a picture on the control's header, when multiple levels are displayed
with AxGrid1 do begin (GetOcx() as EXGRIDLib.Grid).PictureLevelHeader := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)'); (Columns.Add('S') as EXGRIDLib.Column).Width := 32; (Columns.Add('Level 1') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 2') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 3') as EXGRIDLib.Column).LevelKey := TObject(1); end |
146 |
How can I change the header's background color, when multiple levels are displayed
with AxGrid1 do begin BackColorLevelHeader := Color.FromArgb(250,0,0); (Columns.Add('S') as EXGRIDLib.Column).Width := 32; (Columns.Add('Level 1') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 2') as EXGRIDLib.Column).LevelKey := TObject(1); (Columns.Add('Level 3') as EXGRIDLib.Column).LevelKey := TObject(1); end |
145 |
Can I programmatically scroll the control
with AxGrid1 do begin Columns.Add('Column'); Items.AddItem(TObject(0)); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); Items.AddItem(TObject(3)); PutItems(GetItems(TObject(0)),Nil); PutItems(GetItems(TObject(0)),Nil); set_ScrollPos(True,1); end |
144 |
How do I disable expanding or collapsing an item when user presses the arrow keys
with AxGrid1 do begin ExpandOnKeys := False; LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot; Columns.Add('Column 1'); with Items do begin h := AddItem('Root'); InsertItem(h,Nil,'Child 1'); InsertItem(h,Nil,'Child 2'); ExpandItem[h] := True; end; end |
143 |
How do I expand automatically the items while user types characters to searching for something ( incremental searching )
with AxGrid1 do begin ExpandOnSearch := True; LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot; AutoSearch := True; (Columns.Add('Column') as EXGRIDLib.Column).AutoSearch := EXGRIDLib.AutoSearchEnum.exContains; with Items do begin InsertItem(InsertItem(AddItem('text'),Nil,'some text'),Nil,'another text'); InsertItem(InsertItem(AddItem('text'),Nil,'some text'),Nil,'another text'); end; end |
142 |
Can I programmatically scroll the control
with AxGrid1 do begin Columns.Add('Column'); Items.AddItem(TObject(0)); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); Items.AddItem(TObject(3)); PutItems(GetItems(TObject(0)),Nil); PutItems(GetItems(TObject(0)),Nil); Scroll(EXGRIDLib.ScrollEnum.exScrollDown,Nil); end |
141 |
Do you have some function to load data from a safe array
with AxGrid1 do begin Columns.Add('Column'); Items.AddItem(TObject(0)); PutItems(GetItems(TObject(0)),Nil); end |
140 |
Do you have some function to retrieve all items to a safe array
with AxGrid1 do begin Columns.Add('Column'); Items.AddItem(TObject(0)); PutItems(GetItems(TObject(0)),Nil); Items.AddItem(TObject(1)); PutItems(GetItems(TObject(0)),Nil); Items.AddItem(TObject(2)); PutItems(GetItems(TObject(0)),Nil); Items.AddItem(TObject(3)); end |
139 |
How can still display the selected items when the control loses the focus
with AxGrid1 do begin HideSelection := False; Columns.Add('Column'); with Items do begin AddItem('Item 3'); AddItem('Item 1'); SelectItem[AddItem('Item 2')] := True; end; end |
138 |
How can I hide a column
with AxGrid1 do begin (Columns.Add('Hidden') as EXGRIDLib.Column).Visible := False; Columns.Add('2'); Columns.Add('3'); Columns.Add('4'); Columns.Add('5'); end |
137 |
How can I ensure that a column is visible and fits the control's client area
with AxGrid1 do begin ColumnAutoResize := False; (Columns.Add('1') as EXGRIDLib.Column).Width := 128; (Columns.Add('2') as EXGRIDLib.Column).Width := 128; (Columns.Add('3') as EXGRIDLib.Column).Width := 128; (Columns.Add('4') as EXGRIDLib.Column).Width := 128; (Columns.Add('5') as EXGRIDLib.Column).Width := 128; EnsureVisibleColumn('5'); end |
136 |
I've seen that the width of the tooltip is variable. Can I make it larger
with AxGrid1 do begin ToolTipWidth := 328; (Columns.Add('tootip') as EXGRIDLib.Column).ToolTip := 'this is a tooltip that should be very very very very very very very long'; end |
135 |
How do I disable showing the tooltip for all control
with AxGrid1 do begin ToolTipDelay := 0; (Columns.Add('tootip') as EXGRIDLib.Column).ToolTip := 'this is a tooltip assigned to a column'; end |
134 |
How do I let the tooltip being displayed longer
with AxGrid1 do begin ToolTipPopDelay := 10000; (Columns.Add('tootip') as EXGRIDLib.Column).ToolTip := 'this is a tooltip assigned to a column'; end |
133 |
How do I show the tooltip quicker
with AxGrid1 do begin ToolTipDelay := 1; (Columns.Add('tootip') as EXGRIDLib.Column).ToolTip := 'this is a tooltip assigned to a column'; end |
132 |
How do I change the caption being displayed in the control's filter bar
with AxGrid1 do begin FilterBarCaption := 'your filter caption'; with (Columns.Add('Column') as EXGRIDLib.Column) do begin DisplayFilterButton := True; FilterType := EXGRIDLib.FilterTypeEnum.exBlanks; end; ApplyFilter(); end |
131 |
How do I disable expanding or collapsing an item when user double clicks it
with AxGrid1 do begin ExpandOnDblClick := False; LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot; Indent := 13; Columns.Add('Column 1'); with Items do begin h := AddItem('Root'); InsertItem(h,Nil,'Child 1'); InsertItem(h,Nil,'Child 2'); ExpandItem[h] := True; end; end |
130 |
How do I search case sensitive, using your incremental search feature
with AxGrid1 do begin AutoSearch := True; ASCIILower := ''; with Columns do begin (Add('exStartWith') as EXGRIDLib.Column).AutoSearch := EXGRIDLib.AutoSearchEnum.exStartWith; (Add('exContains') as EXGRIDLib.Column).AutoSearch := EXGRIDLib.AutoSearchEnum.exContains; end; with Items do begin CellValue[TObject(AddItem('text')),TObject(1)] := 'another text'; end; with Items do begin CellValue[TObject(AddItem('text')),TObject(1)] := 'another text'; end; end |
129 |
How do I disable the control
with AxGrid1 do begin Enabled := False; end |
128 |
How do I enable the incremental search feature within a column
with AxGrid1 do begin AutoSearch := True; with Columns do begin (Add('exStartWith') as EXGRIDLib.Column).AutoSearch := EXGRIDLib.AutoSearchEnum.exStartWith; (Add('exContains') as EXGRIDLib.Column).AutoSearch := EXGRIDLib.AutoSearchEnum.exContains; end; with Items do begin CellValue[TObject(AddItem('text')),TObject(1)] := 'another text'; end; with Items do begin CellValue[TObject(AddItem('text')),TObject(1)] := 'another text'; end; end |
127 |
How do I call your x-script language
with AxGrid1 do begin with (ExecuteTemplate('Columns.Add(`Column`)') as EXGRIDLib.Column) do begin HeaderStrikeOut := True; HeaderBold := True; end; end |
126 |
How do I call your x-script language
|
125 |
How do I show alternate rows in different background color
with AxGrid1 do begin BackColorAlternate := Color.FromArgb(240,240,240); Columns.Add('Column'); with Items do begin AddItem('Item 1'); AddItem('Item 2'); AddItem('Item 3'); AddItem('Item 4'); AddItem('Item 5'); end; end |
124 |
How do I enlarge the drop down filter window
with AxGrid1 do begin FilterBarDropDownHeight := '-320'; with (Columns.Add('Column') as EXGRIDLib.Column) do begin DisplayFilterButton := True; FilterBarDropDownWidth := '-320'; end; Items.AddItem('Item 1'); Items.AddItem('Item 2'); end |
123 |
How do I filter programatically the control
with AxGrid1 do begin with (Columns.Add('Column') as EXGRIDLib.Column) do begin DisplayFilterButton := True; FilterType := EXGRIDLib.FilterTypeEnum.exPattern; Filter := 'Item*'; end; Items.AddItem('Item 1'); Items.AddItem(''); Items.AddItem('Item 2'); ApplyFilter(); end |
122 |
How do I change the font of the control's filterbar
with AxGrid1 do begin FilterBarFont.Size := 20; with (Columns.Add('Column') as EXGRIDLib.Column) do begin DisplayFilterButton := True; FilterType := EXGRIDLib.FilterTypeEnum.exBlanks; end; ApplyFilter(); end |
121 |
Can I apply an EBN skin to the control's filter bar so I can change its visual appearance
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); (GetOcx() as EXGRIDLib.Grid).FilterBarBackColor := $1000000; with (Columns.Add('Column') as EXGRIDLib.Column) do begin DisplayFilterButton := True; FilterType := EXGRIDLib.FilterTypeEnum.exBlanks; end; ApplyFilter(); end |
120 |
How do I change the background color of the control's filterbar
with AxGrid1 do begin FilterBarBackColor := Color.FromArgb(240,240,240); with (Columns.Add('Column') as EXGRIDLib.Column) do begin DisplayFilterButton := True; FilterType := EXGRIDLib.FilterTypeEnum.exBlanks; end; ApplyFilter(); end |
119 |
How do I change the foreground color of the control's filterbar
with AxGrid1 do begin FilterBarForeColor := Color.FromArgb(255,0,0); with (Columns.Add('Column') as EXGRIDLib.Column) do begin DisplayFilterButton := True; FilterType := EXGRIDLib.FilterTypeEnum.exBlanks; end; ApplyFilter(); end |
118 |
How do I change the height of the control's filterbar
with AxGrid1 do begin FilterBarHeight := 32; with (Columns.Add('Column') as EXGRIDLib.Column) do begin DisplayFilterButton := True; FilterType := EXGRIDLib.FilterTypeEnum.exBlanks; end; ApplyFilter(); end |
117 |
How do I change the header's foreground color
with AxGrid1 do begin ForeColorHeader := Color.FromArgb(255,0,0); Columns.Add('Column 1'); Columns.Add('Column 2'); Items.AddItem('Item 1'); end |
116 |
I have a picture on the control's background, the question is how do I draw selection as semi-transparent
with AxGrid1 do begin (GetOcx() as EXGRIDLib.Grid).Picture := AxGrid1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)'); SelBackMode := EXGRIDLib.BackModeEnum.exTransparent; Columns.Add('Column'); Items.AddItem('Item 1'); Items.AddItem('Item 2'); end |
115 |
It seems that the control uses the TAB key, is there any way to avoid that
with AxGrid1 do begin UseTabKey := False; end |
114 |
I have FullRowSelect property on False, how do I force the user to select cells only in a specified column
with AxGrid1 do begin SelectColumnIndex := 1; FullRowSelect := EXGRIDLib.CellSelectEnum.exColumnSel; Columns.Add('Column 1'); Columns.Add('Column 2'); with Items do begin CellValue[TObject(AddItem('Item 1')),TObject(1)] := 'SubItem 1'; end; end |
113 |
How do I assign a database to your control, using ADO, ADOR or ADODB objects
with AxGrid1 do begin ColumnAutoResize := False; ContinueColumnScroll := False; rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset); with rs do begin Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb',3,3,Nil); end; DataSource := (rs as ADODB.Recordset); end |
112 |
How do I change the visual appearance effect for the selected item, using EBN
with AxGrid1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); (GetOcx() as EXGRIDLib.Grid).SelBackColor := $1000000; SelForeColor := Color.FromArgb(0,0,0); ShowFocusRect := False; Columns.Add('Column'); Items.AddItem(TObject(0)); Items.AddItem(TObject(1)); end |
111 |
How do I change the colors for the selected item
with AxGrid1 do begin SelBackColor := Color.FromArgb(0,0,0); Columns.Add('Column'); Items.AddItem(TObject(0)); Items.AddItem(TObject(1)); end |
110 |
How do I get ride of the rectangle arround focused item
with AxGrid1 do begin ShowFocusRect := False; Columns.Add('Column'); Items.AddItem(TObject(0)); Items.AddItem(TObject(1)); end |
109 |
How can I change the control's font
|
108 |
I can't scroll to the end of the data. What can I do
with AxGrid1 do begin ScrollBySingleLine := True; DrawGridLines := EXGRIDLib.GridLinesEnum.exRowLines; Columns.Add('Column'); with Items do begin ItemHeight[AddItem(TObject(0))] := 13; end; PutItems(GetItems(TObject(0)),Nil); with Items do begin ItemHeight[AddItem(TObject(1))] := 26; end; PutItems(GetItems(TObject(0)),Nil); with Items do begin ItemHeight[AddItem(TObject(2))] := 36; end; PutItems(GetItems(TObject(0)),Nil); with Items do begin ItemHeight[AddItem(TObject(3))] := 48; end; PutItems(GetItems(TObject(0)),Nil); end |
107 |
How do I specify the column where the tree lines / hierarchy are shown
with AxGrid1 do begin LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot; TreeColumnIndex := 1; Columns.Add('Column 1'); Columns.Add('Column 2'); with Items do begin h := AddItem('Root 1.1'); CellValue[TObject(h),TObject(1)] := 'Root 1.2'; CellValue[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2'; CellValue[TObject(InsertItem(h,Nil,'Child 2.1')),TObject(1)] := 'Child 2.2'; ExpandItem[h] := True; h := AddItem('Root 2.1'); CellValue[TObject(h),TObject(1)] := 'Root 2.2'; CellValue[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2'; end; end |
106 |
How do I specify the indentation of the child items relative to their parents
with AxGrid1 do begin LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot; Indent := 11; Columns.Add('Column'); with Items do begin h := AddItem('Root 1'); InsertItem(h,Nil,'Child 1'); InsertItem(h,Nil,'Child 2'); ExpandItem[h] := True; h := AddItem('Root 2'); InsertItem(h,Nil,'Child'); end; end |
105 |
Is there any option to select an item using the right button of the mouse (rclick)
with AxGrid1 do begin RClickSelect := True; Columns.Add('Column'); Items.AddItem('Item 1'); Items.AddItem('Item 2'); end |
104 |
I have FullRowSelect property on False, how do I select a column
with AxGrid1 do begin SelectColumnIndex := 1; FullRowSelect := EXGRIDLib.CellSelectEnum.exColumnSel; end |
103 |
How can I scroll columns one by one, not pixel by pixel
with AxGrid1 do begin ContinueColumnScroll := False; ColumnAutoResize := False; (Columns.Add('1') as EXGRIDLib.Column).Width := 128; (Columns.Add('2') as EXGRIDLib.Column).Width := 128; (Columns.Add('3') as EXGRIDLib.Column).Width := 128; (Columns.Add('4') as EXGRIDLib.Column).Width := 128; (Columns.Add('5') as EXGRIDLib.Column).Width := 128; end |
102 |
How can I enable multiple items selection
with AxGrid1 do begin SingleSel := False; Columns.Add('Column'); Items.AddItem(TObject(0)); Items.AddItem(TObject(1)); Items.AddItem(TObject(2)); end |
101 |
How can I programmatically change the column where incremental searching is performed
with AxGrid1 do begin Columns.Add('Column 1'); Columns.Add('Column 2'); with Items do begin CellValue[TObject(AddItem('Item 1')),TObject(1)] := 'SubItem 1'; end; SearchColumnIndex := 1; end |